-- card: 5053 from stack: in.k_4 -- bmap block id: 2296 -- flags: 4000 -- background id: 2594 -- name: ----- HyperTalk script ----- on openCard global playWhat set hilite of button ID 4 to TRUE set hilite of button ID 5 to FALSE set hilite of button ID 6 to FALSE set hilite of button ID 7 to FALSE set hilite of button ID 8 to FALSE set hilite of button ID 9 to FALSE set hilite of button ID 10 to FALSE set hilite of button ID 11 to FALSE set hilite of button ID 12 to FALSE set hilite of button ID 13 to FALSE set hilite of button ID 31 to FALSE set hilite of button ID 32 to FALSE set name of button id 29 to "?" put "Beat" into playWhat put quote before playWhat put quote after playWhat end openCard -- part 2 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=454 top=290 right=317 bottom=482 -- title width / last selected line: 0 -- icon id / first selected line: 2162 / 2162 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: 111111 ----- HyperTalk script ----- on mouseUp visual effect scroll up go to card 1 end mouseUp -- part 3 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=19 top=293 right=315 bottom=48 -- title width / last selected line: 0 -- icon id / first selected line: 9301 / 9301 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: to 2 ----- HyperTalk script ----- on mouseUp play "uuuh" visual effect venetian blinds go to card 3 end mouseUp -- part 4 (button) -- low flags: 00 -- high flags: 8006 -- rect: left=106 top=190 right=212 bottom=213 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Beat It ----- HyperTalk script ----- on mouseUp global playWhat set hilite of button ID 4 to true set hilite of button ID 5 to FALSE set hilite of button ID 6 to FALSE set hilite of button ID 7 to FALSE set hilite of button ID 8 to FALSE set hilite of button ID 9 to FALSE set hilite of button ID 10 to FALSE set hilite of button ID 11 to FALSE set hilite of button ID 12 to FALSE set hilite of button ID 13 to FALSE set hilite of button ID 31 to FALSE set hilite of button ID 32 to FALSE put "Beat" into playWhat put quote before playWhat put quote after playWhat end mouseUp -- part 5 (button) -- low flags: 00 -- high flags: 8006 -- rect: left=106 top=212 right=234 bottom=213 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: HAL ----- HyperTalk script ----- on mouseUp global playWhat set hilite of button ID 4 to FALSE set hilite of button ID 5 to TRUE set hilite of button ID 6 to FALSE set hilite of button ID 7 to FALSE set hilite of button ID 8 to FALSE set hilite of button ID 9 to FALSE set hilite of button ID 10 to FALSE set hilite of button ID 11 to FALSE set hilite of button ID 12 to FALSE set hilite of button ID 13 to FALSE set hilite of button ID 31 to FALSE set hilite of button ID 32 to FALSE put "HAL" into playWhat put quote before playWhat put quote after playWhat end mouseUp -- part 6 (button) -- low flags: 00 -- high flags: 8006 -- rect: left=106 top=234 right=256 bottom=213 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Kirk Here ----- HyperTalk script ----- on mouseUp global playWhat set hilite of button ID 4 to FALSE set hilite of button ID 5 to FALSE set hilite of button ID 6 to TRUE set hilite of button ID 7 to FALSE set hilite of button ID 8 to FALSE set hilite of button ID 9 to FALSE set hilite of button ID 10 to FALSE set hilite of button ID 11 to FALSE set hilite of button ID 12 to FALSE set hilite of button ID 13 to FALSE set hilite of button ID 31 to FALSE set hilite of button ID 32 to FALSE put "Kirk" into playWhat put quote before playWhat put quote after playWhat end mouseUp -- part 7 (button) -- low flags: 00 -- high flags: 8006 -- rect: left=106 top=256 right=278 bottom=237 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Nasty Boys ----- HyperTalk script ----- on mouseUp global playWhat set hilite of button ID 4 to FALSE set hilite of button ID 5 to FALSE set hilite of button ID 6 to FALSE set hilite of button ID 7 to TRUE set hilite of button ID 8 to FALSE set hilite of button ID 9 to FALSE set hilite of button ID 10 to FALSE set hilite of button ID 11 to FALSE set hilite of button ID 12 to FALSE set hilite of button ID 13 to FALSE set hilite of button ID 31 to FALSE set hilite of button ID 32 to FALSE put "NastyBoys" into playWhat put quote before playWhat put quote after playWhat end mouseUp -- part 8 (button) -- low flags: 00 -- high flags: 8006 -- rect: left=106 top=278 right=298 bottom=237 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: No need to fear ----- HyperTalk script ----- on mouseUp global playWhat set hilite of button ID 4 to FALSE set hilite of button ID 5 to FALSE set hilite of button ID 6 to FALSE set hilite of button ID 7 to FALSE set hilite of button ID 8 to TRUE set hilite of button ID 9 to FALSE set hilite of button ID 10 to FALSE set hilite of button ID 11 to FALSE set hilite of button ID 12 to FALSE set hilite of button ID 13 to FALSE set hilite of button ID 31 to FALSE set hilite of button ID 32 to FALSE put "Fear" into playWhat put quote before playWhat put quote after playWhat end mouseUp -- part 9 (button) -- low flags: 00 -- high flags: C006 -- rect: left=277 top=188 right=210 bottom=421 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Beep ----- HyperTalk script ----- on mouseUp global playWhat set hilite of button ID 4 to FALSE set hilite of button ID 5 to FALSE set hilite of button ID 6 to FALSE set hilite of button ID 7 to FALSE set hilite of button ID 8 to FALSE set hilite of button ID 9 to TRUE set hilite of button ID 10 to FALSE set hilite of button ID 11 to FALSE set hilite of button ID 12 to FALSE set hilite of button ID 13 to FALSE set hilite of button ID 31 to FALSE set hilite of button ID 32 to FALSE put "Beeep" into playWhat put quote before playWhat put quote after playWhat end mouseUp -- part 10 (button) -- low flags: 00 -- high flags: 8006 -- rect: left=277 top=210 right=232 bottom=421 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: He's dead Jim ----- HyperTalk script ----- on mouseUp global playWhat set hilite of button ID 4 to FALSE set hilite of button ID 5 to FALSE set hilite of button ID 6 to FALSE set hilite of button ID 7 to FALSE set hilite of button ID 8 to FALSE set hilite of button ID 9 to FALSE set hilite of button ID 10 to TRUE set hilite of button ID 11 to FALSE set hilite of button ID 12 to FALSE set hilite of button ID 13 to FALSE set hilite of button ID 31 to FALSE set hilite of button ID 32 to FALSE put "Dead" into playWhat put quote before playWhat put quote after playWhat end mouseUp -- part 11 (button) -- low flags: 00 -- high flags: 8006 -- rect: left=277 top=232 right=254 bottom=421 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Nasty ----- HyperTalk script ----- on mouseUp global playWhat set hilite of button ID 4 to FALSE set hilite of button ID 5 to FALSE set hilite of button ID 6 to FALSE set hilite of button ID 7 to FALSE set hilite of button ID 8 to FALSE set hilite of button ID 9 to FALSE set hilite of button ID 10 to FALSE set hilite of button ID 11 to TRUE set hilite of button ID 12 to FALSE set hilite of button ID 13 to FALSE set hilite of button ID 31 to FALSE set hilite of button ID 32 to FALSE put "Nasty" into playWhat put quote before playWhat put quote after playWhat end mouseUp -- part 12 (button) -- low flags: 00 -- high flags: 8006 -- rect: left=277 top=254 right=276 bottom=420 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Over the Rainbow ----- HyperTalk script ----- on mouseUp global playWhat set hilite of button ID 4 to FALSE set hilite of button ID 5 to FALSE set hilite of button ID 6 to FALSE set hilite of button ID 7 to FALSE set hilite of button ID 8 to FALSE set hilite of button ID 9 to FALSE set hilite of button ID 10 to FALSE set hilite of button ID 11 to FALSE set hilite of button ID 12 to TRUE set hilite of button ID 13 to FALSE set hilite of button ID 31 to FALSE set hilite of button ID 32 to FALSE put "Rainbow" into playWhat put quote before playWhat put quote after playWhat end mouseUp -- part 13 (button) -- low flags: 00 -- high flags: 8006 -- rect: left=277 top=276 right=297 bottom=420 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Underdog is here ----- HyperTalk script ----- on mouseUp global playWhat set hilite of button ID 4 to FALSE set hilite of button ID 5 to FALSE set hilite of button ID 6 to FALSE set hilite of button ID 7 to FALSE set hilite of button ID 8 to FALSE set hilite of button ID 9 to FALSE set hilite of button ID 10 to FALSE set hilite of button ID 11 to FALSE set hilite of button ID 12 to FALSE set hilite of button ID 13 to TRUE set hilite of button ID 31 to FALSE set hilite of button ID 32 to FALSE put "Here" into playWhat put quote before playWhat put quote after playWhat end mouseUp -- part 15 (button) -- low flags: 00 -- high flags: A004 -- rect: left=39 top=46 right=69 bottom=169 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Volga Boatman ----- HyperTalk script ----- on mouseUp global playWhat put playWhat into cmd put "play" before cmd put cmd into temp put "tempo 50 c4e a3 d4q a3h" into foist put "tempo 50 c4q f ee fs es dq" into sexond put temp && foist into doit do doit do doit put temp && sexond into doit do doit put temp && foist into doit do doit end mouseUp -- part 16 (button) -- low flags: 00 -- high flags: A004 -- rect: left=39 top=71 right=93 bottom=170 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Three Blind Mice ----- HyperTalk script ----- on mouseUp global playWhat put playWhat into cmd put "play" before cmd put cmd into temp put "tempo 180 e4q d ch" into foist put "tempo 180 g4q fe. fs eh" into sexond put "tempo 180 g4s c5e. cs b4e3 a b c5e. g4s ge. gs" into thoid put temp && foist into doit do doit do doit put temp && sexond into doit do doit do doit put temp && thoid into doit do doit do doit do doit put temp && foist into doit do doit do doit end mouseUp -- part 17 (button) -- low flags: 00 -- high flags: A004 -- rect: left=39 top=95 right=117 bottom=170 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Sleigh Ride ----- HyperTalk script ----- on mouseUp global playWhat put playWhat into cmd put "play" before cmd put cmd into temp put "tempo 140 g4e g g g a gs e ce d e ds b3s ae gh" into foist put temp && foist into doit do doit end mouseUp -- part 18 (button) -- low flags: 00 -- high flags: A004 -- rect: left=39 top=120 right=142 bottom=170 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Nachtmusik ----- HyperTalk script ----- on mouseUp global playWhat put playWhat into cmd put "play" before cmd put cmd into temp put "tempo 120 c4q. g3e c4q. g3e c4e g3 c4 e gh" into foist put "tempo 120 f4q. de fq. de f d b3 d4 g3h" into sexond put temp && foist into doit do doit put temp && sexond into doit do doit end mouseUp -- part 19 (button) -- low flags: 00 -- high flags: A004 -- rect: left=40 top=145 right=167 bottom=171 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Star Trek ----- HyperTalk script ----- on mouseUp global playWhat put playWhat into cmd put "play" before cmd put cmd into temp put "tempo 140 g3h f4h. eq dq3 c b3 a#w" into foist put "tempo 140 a3q gh g4h. fq eq3 d c b3w" into sexond put temp && foist into doit do doit put temp && sexond into doit play "silence" tempo 140 ch. do doit end mouseUp -- part 20 (button) -- low flags: 00 -- high flags: A004 -- rect: left=176 top=46 right=69 bottom=306 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Row, Row ----- HyperTalk script ----- on mouseUp global playWhat put playWhat into cmd put "play" before cmd put cmd into temp put "tempo 120 c4q c ce. ds eq ee. ds ee. fs gh" into foist put "tempo 120 c5e3 c c g4 g g e e e c c c ge. fs ee. ds ch" into sexond put temp && foist into doit do doit put temp && sexond into doit do doit end mouseUp -- part 21 (button) -- low flags: 00 -- high flags: A004 -- rect: left=176 top=70 right=93 bottom=306 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Jingle Bells ----- HyperTalk script ----- on mouseUp global playWhat put playWhat into cmd put "play" before cmd put cmd into temp put "tempo 120 e4e e eq ee e eq" into foist put "tempo 120 e4e g ce. ds eh" into sexond put temp && foist into doit do doit put temp && sexond into doit do doit end mouseUp -- part 22 (button) -- low flags: 00 -- high flags: A004 -- rect: left=176 top=95 right=118 bottom=306 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: SS Banner ----- HyperTalk script ----- on mouseUp global playWhat put playWhat into cmd put "play" before cmd put cmd into temp put "tempo 80 g4e. es cq e g c5h" into foist put "tempo 80 e5e. ds cq e4 f# gh" into sexond put temp && foist into doit do doit put temp && sexond into doit do doit end mouseUp -- part 23 (button) -- low flags: 00 -- high flags: A004 -- rect: left=176 top=120 right=143 bottom=306 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Mozart 40 ----- HyperTalk script ----- on mouseUp global playWhat put playWhat into cmd put "play" before cmd put cmd into temp put "tempo 200 c#4e c cq c#e c cq c#e c cq g#h" into foist put "tempo 200 g#4e g fq fe d# c#q c#e c a#3q a#h" into sexond put temp && foist into doit do doit put temp && sexond into doit do doit end mouseUp -- part 24 (button) -- low flags: 00 -- high flags: A004 -- rect: left=176 top=144 right=167 bottom=306 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Happy Birthday ----- HyperTalk script ----- on mouseUp global playWhat put playWhat into cmd put "play" before cmd put cmd into temp put "tempo 110 g3e. gs aq g c4 b3h g3e. gs aq g d4 ch" into foist put "tempo 110 g3e. gs g4q e c b3 ah f4e. fs eq c d ch." into sexond put temp && foist into doit do doit put temp && sexond into doit do doit end mouseUp -- part 25 (button) -- low flags: 00 -- high flags: A004 -- rect: left=310 top=46 right=69 bottom=440 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Johnny ----- HyperTalk script ----- on mouseUp set hilite of button 23 to TRUE global playWhat put playWhat into cmd put "play" before cmd put cmd into temp put "tempo 360 g3q c4 c c ch dq d#h dq d#h cq a#3w" into foist put "tempo 360 g3q a#w." into sexond put temp && foist into doit do doit put temp && sexond into doit play "silence" tempo 360 cq do doit wait until the sound is "done" set hilite of button 23 to FALSE end mouseUp -- part 26 (button) -- low flags: 00 -- high flags: A004 -- rect: left=310 top=70 right=93 bottom=440 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Fate ----- HyperTalk script ----- on mouseUp global playWhat put playWhat into cmd put "play" before cmd put cmd into temp put "tempo 80 g4s g g d#h" into foist put "tempo 80 fs f f dh" into sexond put temp && foist into doit do doit put temp && sexond into doit do doit end mouseUp -- part 27 (button) -- low flags: 00 -- high flags: A004 -- rect: left=310 top=95 right=118 bottom=440 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: FrŽre Jacques ----- HyperTalk script ----- on mouseUp global playWhat put playWhat into cmd put "play" before cmd put cmd into temp put "tempo 80 c4e d e c c d e c e f gq ee f gq" into foist put "tempo 80 g4s a g f ee c gs a g f ee c c g3 c4q ce g3 c4q" into sexond put temp && foist into doit do doit put temp && sexond into doit do doit end mouseUp -- part 28 (button) -- low flags: 00 -- high flags: A004 -- rect: left=310 top=120 right=143 bottom=440 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Fast scale ----- HyperTalk script ----- on mouseUp global playWhat put playWhat into cmd put "play" before cmd put cmd into temp put "tempo 200 ce d e f g a b c5 d e f g a b" into foist put "tempo 200 c6e b5 a g f e d c b4 a g f e d cw" into sexond put temp && foist into doit do doit put temp && sexond into doit do doit end mouseUp -- part 29 (button) -- low flags: 00 -- high flags: A004 -- rect: left=310 top=144 right=167 bottom=440 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: ? ----- HyperTalk script ----- on mouseUp answer "This button doesn't do anything." with "Bummer" put 2 into keeptrack repeat 10 times add 1 to keeptrack set hilite of button keeptrack to TRUE end repeat set hilite of button id 31 to TRUE set hilite of button id 32 to TRUE get the name of button 27 put word 3 of it into temp if char 2 of temp is "?" then set name of button 27 to "Oops..." else set name of button 27 to "?" end mouseUp -- part 30 (button) -- low flags: 00 -- high flags: A004 -- rect: left=23 top=219 right=260 bottom=71 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Keys ----- HyperTalk script ----- on mouseUp visual effect barn door close go to card 3 end mouseUp -- part 31 (button) -- low flags: 00 -- high flags: 8006 -- rect: left=106 top=298 right=318 bottom=237 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Thunder ----- HyperTalk script ----- on mouseUp global playWhat set hilite of button ID 4 to FALSE set hilite of button ID 5 to FALSE set hilite of button ID 6 to FALSE set hilite of button ID 7 to FALSE set hilite of button ID 8 to FALSE set hilite of button ID 9 to FALSE set hilite of button ID 10 to FALSE set hilite of button ID 11 to FALSE set hilite of button ID 12 to FALSE set hilite of button ID 13 to FALSE set hilite of button ID 31 to TRUE set hilite of button ID 32 to FALSE put "Thunder" into playWhat put quote before playWhat put quote after playWhat end mouseUp -- part 32 (button) -- low flags: 00 -- high flags: 8006 -- rect: left=277 top=296 right=317 bottom=420 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Yabba Dabba Doo ----- HyperTalk script ----- on mouseUp global playWhat set hilite of button ID 4 to FALSE set hilite of button ID 5 to FALSE set hilite of button ID 6 to FALSE set hilite of button ID 7 to FALSE set hilite of button ID 8 to FALSE set hilite of button ID 9 to FALSE set hilite of button ID 10 to FALSE set hilite of button ID 11 to FALSE set hilite of button ID 12 to FALSE set hilite of button ID 13 to FALSE set hilite of button ID 31 to FALSE set hilite of button ID 32 to TRUE put "Yabba" into playWhat put quote before playWhat put quote after playWhat end mouseUp -- part 33 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=450 top=192 right=213 bottom=484 -- title width / last selected line: 0 -- icon id / first selected line: 19678 / 19678 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: ? ----- HyperTalk script ----- on mouseUp visual dissolve go to card 2 end mouseUp